From 578d09a64200f322b9a8a8bd0c51ac4a290607df Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 15 May 1993 21:17:55 +0000 Subject: [PATCH] Rename `primary-selection' to `region'. --- lisp/faces.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/lisp/faces.el b/lisp/faces.el index 405c6b4fe51..0c1e4180ad9 100644 --- a/lisp/faces.el +++ b/lisp/faces.el @@ -610,10 +610,10 @@ If NOERROR is non-nil, return nil on failure." (make-face 'bold) (make-face 'italic) (make-face 'bold-italic) - (make-face 'primary-selection) + (make-face 'region) (make-face 'secondary-selection) - (setq region-face (face-id 'primary-selection)) + (setq region-face (face-id 'region)) ;; Set up the faces of all existing X Window frames. (let ((frames (frame-list))) @@ -682,10 +682,10 @@ If NOERROR is non-nil, return nil on failure." ;;; (set-face-background-pixmap 'highlight "gray1" frame) (error (invert-face 'highlight frame)))) - (or (face-differs-from-default-p 'primary-selection frame) + (or (face-differs-from-default-p 'region frame) (condition-case () - (set-face-background 'primary-selection "gray" frame) - (error (invert-face 'primary-selection frame)))) + (set-face-background 'region "gray" frame) + (error (invert-face 'region frame)))) (or (face-differs-from-default-p 'secondary-selection frame) (condition-case () -- 2.30.2